home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / programs / prog37 < prev    next >
Text File  |  1995-06-29  |  479b  |  23 lines
  1. # check pixel to string converter
  2. # the 2 labels should show the same colours
  3. xtAppInitialize -class Program
  4.  
  5. xmRowColumn .r managed
  6. xmLabel .r.l1 managed \
  7.     -foreground #3a7 \
  8.     -background #a73 \
  9.     -width 200 \
  10.     -labelString "hello there"
  11. xmLabel .r.l2 managed \
  12.     -width 200 \
  13.     -labelString "hello there"
  14.  
  15. .r.l1 getValues -foreground fg -background bg
  16. puts stdout "Fg: $fg, bg: $bg"
  17.  
  18. .r.l2 setValues -foreground $fg -background $bg
  19.  
  20. . realizeWidget
  21.  
  22. . mainLoop
  23.